home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / internet / irc_i_dodatki / amircwhois / whois.amirx < prev   
Encoding:
Text File  |  1997-04-02  |  2.3 KB  |  78 lines
  1. /* Whois script for use with AmIRC 1.x
  2. // $VER WhoIs.amirx 1.01 (02.04.97)
  3. // Written by Deryk Robosson 01.04.97
  4. //
  5. // newlook@ameritech.net newlook on #amiga IRC (EfNet & IRCnet)
  6. //
  7. // 01.04.97 (1.00) - Initial Creation
  8. // 02.04.97 (1.01) - Filtered tabs from the dns entries
  9. //
  10. */
  11. bold = d2c(2)
  12. underline = '1F'x
  13. tab = '09'x
  14.  
  15. /* edit this to reflect the path to the whois command */
  16. whois_path='amitcp:bin/'
  17.  
  18. tempfile = 't:WhoIs.temp'
  19.  
  20. options results
  21. parse arg param
  22.  
  23. if param = ''|upper(param)='VER' then signal version
  24. if upper(param) = 'HELP' then signal help
  25.  
  26. parse var param site' 'command' 'user
  27. command = upper(command)
  28.  
  29. address command whois_path'WhoIs' site' >T:WhoIs.temp'
  30.  
  31. if open(file, tempfile,'R') then do
  32.     wasteline=readln(file)
  33.     wasteline=readln(file)
  34.     do until eof(file)
  35.         line = ReadLn(file)
  36.         if line ~= '' then do
  37.             x=pos(tab,line)
  38.             do while x ~= 0
  39.                 line=delstr(line,x,1)
  40.                 line=insert('   ',line,x-1,3)
  41.                 x=pos(tab,line)
  42.             end
  43.             select
  44.                 when command = 'SAY' then 'SAY' line
  45.                 when command = 'SHOW' then 'SAY /NOTICE' user||' '||line
  46.                 otherwise
  47.                     if command = '' then call echo(line)
  48.             end
  49.     end
  50. end
  51. close(file)
  52. address command 'delete' tempfile 'quiet force'
  53. exit
  54.  
  55. version:    /* show the user version information */
  56.     call echo(bold'WhoIs.AMIRX'bold' Version 'subword(sourceline(2),4,2))
  57.     call echo('Read the top of WhoIs.AMIRX script for history.')
  58.     call echo(bold'©1997'bold' Deryk Robosson 'bold'(newlook)'bold' - [newlook@ameritech.net]')
  59.     call echo(bold'Type /<alias> help for command information')
  60. exit
  61.  
  62. help:   /* show the user help examples */
  63.     call echo('WhoIs.AMIRC'bold' Help')
  64.     call echo(bold'SAY  - 'bold'ECHOs output to window')
  65.     call echo(bold'VER  - 'bold'displays script version')
  66.     call echo(bold'SHOW - 'bold'displays outout to user')
  67.     call echo(bold'HELP - 'bold'displays this file')
  68.     call echo(bold||underline'EXAMPLES:'bold||underline)
  69.     call echo(bold'/WhoIs domain 'bold' to see output yourself')
  70.     call echo(bold'/WhoIs domain SAY 'bold' to show output to channel')
  71.     call echo(bold'/WhoIs domain SHOW usernick 'bold' to show output to a user')
  72. exit
  73.  
  74. echo: procedure
  75.     parse arg a
  76.     'echo P='d2c(27)'b«WhoIs» 'a
  77. return 1
  78.